      function flash_release()

      implicit none

      character (len = 40) :: flash_release

      flash_release = 'FLASH I/O benchmark using Pnetcdf'

      return
      end
